home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Class / Stack / stackuse.e < prev   
Text File  |  1992-09-02  |  302b  |  14 lines
  1. -> lets use a STACK!
  2.  
  3. MODULE 'class/stack'
  4.  
  5. PROC main() HANDLE
  6.   DEF s=NIL:PTR TO stack,a
  7.   NEW s.stack()                -> amaaazing! :-)
  8.   FOR a:=1 TO 10 DO s.push(a)
  9.   FOR a:=1 TO 11 DO WriteF('element = \d\n',s.pop())
  10. EXCEPT DO
  11.   END s
  12.   IF exception="estk" THEN WriteF('You underflowed the stack!\n')
  13. ENDPROC
  14.